home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 08-05.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  680b  |  41 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Pages = 4
  6.  
  7. Status = SETMEM(-(Pages-1)*(4096+16))
  8.  
  9. NewMode = FGbestmode(80,25,Pages)
  10. IF NewMode < 0 THEN
  11.    PRINT "This program requires ";
  12.    PRINT "an 80-column display."
  13.    STOP
  14. END IF
  15.  
  16. OldMode = FGgetmode
  17. FGsetmode NewMode
  18. FGcursor 0
  19.  
  20. FOR Page = 0 TO Pages-1
  21.    Status = FGallocate(Page)
  22.    FGsetpage Page
  23.    FGsetcolor 7
  24.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  25.    FGsetattr 0, 7, 0
  26.    FGlocate 12, 37
  27.    CharString$ = "Page" + STR$(Page)
  28.    FGtext CharString$, 6
  29. NEXT
  30.  
  31. FOR Page = 0 TO Pages-1
  32.    FGsetvpage Page
  33.    FGwaitkey
  34.    Status = FGfreepage(Page)
  35. NEXT
  36.  
  37. FGsetmode OldMode
  38. FGreset
  39.  
  40. END
  41.